home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 11 / 011.d81 / line writer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  407b  |  12 lines
  1. 12 print"type:":b$="": rem b$ string is cleared
  2. 20 geta$:ifa$=""then20: rem get one typed character
  3. 22 ifa$=chr$(13)then30: rem the <return> key
  4. 25 ifb$=""anda$=chr$(20)then20
  5. 26 ifa$=chr$(20)thenb$=left$(b$,len(b$)-1):goto29
  6. 27 b$=b$+a$: rem add a$ to end of b$ string
  7. 29 print a$;:goto 20: rem get next character
  8. 30 open 1,4: rem data channel for printer
  9. 40 print#1,b$:print: rem print data, go to next line
  10. 50 close 1: rem close data channel
  11. 60 goto12: rem go back to step 1
  12.